date_rcog <- function(x){
  #### as.numeric(as.Date("1994-10-09")) 9047 ####
  grep(x = x, pattern = "\d{5, 10}")
}